home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 19 / AMIGAplus Sonderheft 19 (1999)(ICP)(DE)[!].iso / Demoversionen / Anwendungen / gendemo104 / Genesis / bin / stopnet < prev    next >
AmigaDOS Script File  |  1999-02-21  |  466b  |  28 lines
  1. .KEY FLUSH/S
  2. .BRA {
  3. .KET }
  4.  
  5. ; $Id: stopnet,v 3.1 1996/03/20 17:08:39 too Exp $
  6.  
  7. FailAt 21
  8. Version bsdsocket.library >nil:
  9. If NOT Warn 
  10.  
  11.   If Exists AmiTCP:db/User-Stopnet
  12.     Execute AmiTCP:db/User-Stopnet
  13.   EndIf
  14.  
  15.   Rx "address AMITCP; KILL" ; Send "KILL" to AmiTCP
  16.  
  17.   If {FLUSH}
  18.     Wait 3 secs
  19.     If `rx "Say Show(ports, AMITCP)"` EQ 0
  20.       Avail >NIL: FLUSH
  21.     Else
  22.       Echo Memory NOT flushed!
  23.     EndIf
  24.   EndIf
  25. Else
  26.   Echo AmiTCP/IP is not running.
  27. EndIf
  28.